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The Newsletter of the Compucolor Users’ Group 
Of Rochester, New York Our 3rd Year 


EDITOR’S NOTES: 


This issue, you may note from the top of the page, is a double 
issue, serving both July and August. As usual with our double 
issues, we have double content. This newsletter should keep 
you busy through the summer ~ the second article af Dave 
Suits® series on Assembly Language programming, Dale Dewey’s 
directions for tuning up your display, information about our 
new-form library, and more are inside. 


We never publish an article about hardware without appropriate 
disclaimers upfrant, and Dale’s article in this issue rates 
our standard warning. If you don*t know what you're doing, 
you'd better moat mess aracund. Following Dale’s directions, 
it’s possible to bring your display up to snuff (the 
instructions were tested at cur Seminar in May, and retested 
by your editor later), but use care and goad sense. The best 
instructions must assume some basic skill level (even 
Heath’s), so make sure you*ve got that level before tearing 
into your machine. *Nuff said. 


The big news here is the assumption af the publication of 
Colorcue from ISC by yours truly editor and David HB. Suits. 
The first issue of Colorcue (under new editors) is due out in 
August, so look for it. Or subscribe to it (even better). Or 
write for it (better yet)! It’s my intent to keep DATACHIF 
going simultaneously. The two publications are complementary, 
not contradictory; there*s room and a need for both. Colorcue 
will continue to be an ISC campany publication, aimed at bath 
Compucolor and Intecolor users, while DATACHIF will continue 
as it is, aimed at Compucelor users, with mare room for 
candor, and a freer type of content. 


Please don’t be overwhelmed with both these publicatians 
competing for your articles. Just write more. We Compucolar 
Qwners are in somewhat of a tough spot regarding factory and 
industry support. User groups, like this one, must provide 
much of our strength, and serve as almost our anly source of 
information. Your participation makes us strong. Farticipate! 


Editor ; Librarian Subscriptions 

Ben Barlow Dave Suits Gene Bailey 

161 Brookside Dr. General Studies 28 Dogwood Glen 
Rochester, NY 14618 RI. T. Rochester. NY 14625 


Rochester, NY 14623 


ADVANCED APPLICATION 


The Real Time Clock 


The COMPUCOLOR II contains a Real Time Clock that gives the 
programmer an added dimension in creativity. It has many applications, 
and can be used for time testing in educational or game programs. The 
program below shows how get the Real Time Clock to display in the upper 
right hand corner of the screen, This is a very simple program, but 
because it gives the memory values necessary for the Real Time Clock, you 
will be able to elaborate on this program and create interesting effects. 

The first lines (100 - 150) set up the program and define variables, 
The program allows you to enter any starting time that you chose. This is 
put into the proper place in memory by the POKE statements in lines 180, 
190, and 200. The time is then retrieved by the PEEK statements in lines 
230, 240, and 250. Lines 270 - 290 align the digits for a more easily 
read display. This is done by adding 100 to each time value, and then 
printing out only the last two digits. This assures that any leading 
zeroes will be displayed. Note the use of the string function STR$ to 
change the numeric value into a string variable, The PLOT and PRINT 
statements in line 300 define the area of the screen to be used for 
display. This PLOT statement can be changed to display the time readout 
in any portion of the screen. Line 330 makes sure that the display is not 
updated unless the time has changed, If this line were not included, the 
program would still work, but the display might be jittery because of the 
constant needless update. 


100 REM ##® TIME ### 

110 PLOT 6, 34,12, 14 

120 REM #**® SET TIME *#* 

130 INPUT "DO YOU WANT TO SET THE TIME (Y OR N)? "31$ 
140 IF I$ = "N" THEN 210 

150 INPUT "ENTER TIME (HR, MIN, SEC) ";H,M,S 
170 REM **® PUT CORRECT TIME INTO MEMORY **# 
180 POKE 33211,H 

190 POKE 33210,M 

200 POKE 33209,S 

210 REM *** PRINT TIME; GET TIME *#* 

230 S=PEEK (33209) 

240 M=PEEK (33210) 

250 H=PEEK (33211) 

260 REM *® PUT 0 IN FRONT OF SINGLE DIGIT NUMBERS ** 
270 S$=RIGHT$ (STR$ (S+ 100), 2) 

280 M$=RIGHT$ (STR$ (M+ 100), 2) 

290 H$=RIGHT$ (STR$ (H+ 100), 2) 

300 PLOT 3,50,0:PRINT H$;":"5;M$3":"3S$ 

320 REM ## WAIT UNTIL SECONDS HAVE CHANGED 
330 IF PEEK (33209)=S THEN 330 

340 GOTO 230 


The time is actually updated every 8/15 seconds, so that every few 
seconds, the time may seem to advance faster for one count. You may find 
that your COMPUCOLOR II gains or loses a few seconds per day. This can be 
corrected by adding this number of seconds once every day. 
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READERS-- 


Certainly by this time you have thoroughly perused all of the 
material presented in October's issue. We are pleased to say that 
response has been quite good, with readers being especially appreciative 
of the Star Trek instructions. As a result of the articles in the last 
issue, many new users have seen the coming and going of thousands of 
Random Rectangles, while the home programmers are coming up with some 
innovative uses for the Scrolling Patch. Our explanation of Star Trek 
Strategy has undoubtedly contributed to the demise of a number of 
Klingons. If you still have not tried the Star Trek game, you can use the 
order blank attached to this month's ColorCue to send to us for your Star 
Trek SofDisk Album. It includes the Lunar Lander and Shoot games, as well 
as Tic-Tac-Toe. 
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This Issue's MENU: 


EdLCOr'S LCCC oie eve ocx sre ure eve wie ais wre 
Advanced Application 


Real Time Clock....... ceeee 
Keeping It Simple 

Circular Plots....... ewes, 
Software Explained 

Othello Strategy...... siete iolh 


Users' Software Files 
Acceptance Policies.......5 
The RS-232C Interface..........06- 6 
Reading the Keyboard......cceceeeee 7 
HRN HHH HH HHH HEHEHE RHEE HERRERA RE REE RHR ERE 

This issue presents not only the usual articles and information, but 
also a feature on the use of the RS-232C interface. We know that many of 
you have access to large computers, and using the COMPUCOLOR II as a 
terminal is an important feature for you. Although the procedure is 
described in the Programming and Reference Manual, we have chosen this 
issue of ColorCue to present it to all users. 

November ColorCue also includes a description of the trade and 
acceptance policies for the Users' Group software. We hope that by 
defining the policies, more of you will be encouraged to send us those 
creations on which you have been working so _ hard. We are actively 
soliciting software, so don't assume that we're not interested in your 
project. Send it to us and let us have a look! 


DISK 36 Educational (from SOFTSWAP) 
Reciprocals: practice. Distributive property: practice. Trinomials to 
factor: exercises. Simultaneous equations: exercises. Difference 
between squares: practice. Finding values of polynomials. Graphing 
polynomials (second degree). Graphing polynomials (third degree). Sine 
waves (amplitude and period). Sine waves (displacement). Sine waves 
(general review). Multiply matrices. Add matrices. * 


DISK 37 Educational (from SOFTSWAP) 
Fractions and sets. Frog race (size of fractions). Hammurabi. Stock 
market. Polygons: shapes and names. Nim for two. Guess my number. 
Class record for one test. Individuals homework or test average. 
Prime—composite or one? Factors of numbers. Prime factors of numbers. 
Divide with many significant digits. : 


DISK 38 Educational (from SOFTSWAP) 
Motions of bodies in space. Notes on the two body problem. Trajectories. 
Classification of animals (animal game). Animal game bookkeeping. 


LRELRRKRRALRRKRRRRRRRRKKRRE 
XEROX ECREATION ASSOCIATION 


COMP TER FAIR 


: PuBLIC INVITED 


ne ANNUAL COMPUTER FAI - TH1s EVENT IS HOSTED EACH YEAR BY 
THE MICROCOMPUTER ASSOCIATION OF XEROX. THE COMPUTER FAIR 
ALLOWS LOCAL COMPUTER GROUPS AND DEALERS TO GET TOGETHER 
FOR ONE GREAT HANDS-ON MEETING, LAST YEAR'S FAIR WAS ATTENDED 
BY OVER 7/00 PEOPLE, WITH PARTICIPATION FROM 10 LOCAL DEALERS 
AND 5 OTHER ComMPUTER GROUPS, 


NHEN : SATURDAY, NovemBer l4tH, 1981, FRom 11:90 - 4:00 PM, 
WHERE: CAFETERIA 336 IN WEBSTER, 


IF FURTHER INFORMATION IS REQUIRED, CONTACT STEVE EDGERTON 
ON EXTENSION 24101, 


bein aor ey 
7s XEROX 


REW LIBRAEBRY DISES 


(October, 1981) 


DISK 30 Games 

QUICK TURN, by Chuck Finn. A real time game in which you direct a 
moving block around the screen, erasing colored dots as it goes. 
Various levels of difficulty. 

ROBOT CHASE (REAL TIME), by Amod Patwardhan. This is a real time 
version of "Robot Chase" (Disk 18). Try to elude the robots chasing 
you around the screen. 

MINER, by Amod Patwardhan. Originally written for the PET, this program 
draws a mine shaft and mining area from which you attempt to mine 
silver and gold. 

CRAPS. The computer rolls the dice and keeps track of your balance. 

DRAGONS AND DUNGEON. Not as sophisticated as "Dungeons and Dragons” 
(Disk 21). 

TIME BOMB. Defuse the time bomb by guessing which wires should be 
disconnected. If you guess wrong, you lose. 


DISK 31 Games 
ASTEROIDS (WITH JOYSTICK), by Tom Hudson, with modifications by Tom 
Montemarano for digital joystick as described in Montemarano's 
articles in Data Chip (#23, March/April, '81 and #26, July/Aug., 
'81). For V6.78 ROMs. Source-code included. 


DISK 32 Utilities 

PRINTER SET UP, by Dale Dewey. A machine language program to create 
files and/or send a file to your printer to set tab stops, etc. 
These files may be included in .SRC files for use by an editor 
(e.g. the Screen Editor). 

BASIC LISTER, by Dale Dewey. A machine language program to read a 
BASIC program from disk and print it om your printer in a formatted 
and titled form. Several formatting options are available. 


DISK 34 Games 
TRUCKER. Simulation of the strategy of driving an 18 wheeler along 
various routes with various cargo. 
GIANT MONSTER COMBAT. A dungeons and dragons game. 
STAR MERCHANT. Buy, sell and travel among the stars. 
INDY RACE TRACK, by Amod Patwardhan. Real time BASIC game: try to keep 
your car on the track. 


DISK 35 Educational (from SOFTSWAP) 
Numbers: squares and cubes. Square roots: guess and check. Square 
roots: divide and average. Factorials. Sums. Roots and more roots. 
Rounding numbers. Drill with addition. Mean, standard deviation of 
scores. Precision multiplication. Introduction to slopes. 


Hiding BASIC Programs - Rick Manazir 
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-- THE FIRST LINE OF BEFENSE 


Tom Montemeranca 


There heve been s number of erticles in CHIF concerning methods 
for recovering from “ESCs <W>. Hefore resorting to them: howevery 
you should reslize thet “ESC> <W> doesn’t Kill vour rrosrems or the 

ASIC memory pointers. The Killer is “ESC> <W> <<RETURN, If 

is 3 ¥ sequence is interurted st eny roints your Frogrems end all 
ers remzin intect. How do vou interurt the seauence? Town 
sn’t work. 


a fineliy finished debugging 
@ Il hec no cory of the program 
he famous wordss 


4AM computing ¢$ 
ins I pressed < 
zs somewnet upset + I se 


neg myself from apeseine ” CRETURN and sterted pressing other 

er 211 whet could I lose? When I pressed =RESE T=» 

t the screen cleering and the words? 

” CONPUCOLOR II CRT MODE... ; * 

I blinked in surprise, pressed <E5C> “Es, got s READY prompts 

Lured LIST <RETURN?:, end there S my program ( which I immecdistiy seved 
co 
a 


i 
ra 


aime 


Later unde ngitionss I experimented end found 


r 
thet & number of £5 sucessfully interurt the Killer 
u 


els 


<ESC> <E> 

SESC> <CRT> 

SESC> <DD> 

SESC> <Y¥> <CHARACTER> 
ang <RESET> 


All of these excert <£5C> <E> must te followed by <ESC> “E> to return 
to BASIC of course. 

Now to Keer from losing prosrems to “ESC> <W>, you must simply 
creek your bed habit of pressing <RETURN?. FRACTICE. 

By the wey, be sure you heve = cory of one of the methods for 
recovering from <ESC> <W> thet were published in CHIF. After alls 
we still mske mistekes,. 


. 


400 


410 
415 
420 
425 
430 
435 
440 
445 
450 
455 
460 


REM 1 Matrix, pseudo-shift, 
pair exchange 

BOR. f=1 TO 52 

XB(I)=I 

NEXT I 

B=52 

R=INT (B*RND(1)+1) 

S=XB(B) 

XB(B)=XB(R) 

XB(R)=S 

B=B-1 

IF B>1 GOTO 43¢ 

GOTO 526 


500 
510 
515 
520 


525 
530 
535 
540 
545 


550 
600 


REM Print Out Routine 

Plot 8,12 

FOR T=1 TO S2 STEP 4 

PRINT XB(I),XB(I+1),XB(I+2), 
XB(1I+3) 

NEXT I 

C=@;FOR I=1 TO 52 

IF XB(I)=I THEN C=C+1 


NEXT I 

PRINT: PRINT C, "NUMBERS IN 
ORIGINAL LOCATION" 

GOTO 36 

END 


eee nn eee CO0O CE, 
a 
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Random Miscellaneousness 


Has anyone out there modified Asteroids for V8.79? Want to 
send it in to the library? 


Has anyone out there added a PROM board? What did you put on 
it? Want to tell us about it? 


If people out ther with network numbers would like the listed, 
send them in; we'll add a page of network numbers so you can 


talk to each other. 


Martin Rex Compunet 


Here's one: 


70260, 317 
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At this point I have not decided on my next topic. 
I would really like to hear from any and all who read this 
to get your comments and reactions. I want to share useful 
ideas, not waste my time babbling on about esoteric topics 
of interest to none but myself. Please submit any ideas. 
Again, my address is: 197 Hollybrook Road, Rochester, NY 14623. 
Get those letters in early to avoid the rush. 


TABLE I 
(Statistics on 4 methods--random number generator internal 
to the program) 


Method 
i 2 s 4 

Mean time (sec. ) 13.3 20.2 18.0 6.4 
Standard Deviation 0.42 502 0.23 O15) 
Range of quantity of 

random numbers 52-52 158-320 201-203 51-51 

generated 

TABLE II 


(As in Table I but using RND function for random numbers) 


Method 
tt 2 3 4 

Mean time (sec.) 9.7 Lat 6.1 375 
Std. Dev. 0.66 0.91 0.13 0.19 
Range 52-52 217-367 201-203 51-51 
PROGRAM(S) 
1 REM This is demo of 4 card 200 REM 2 Matrix, no shift 

shuffling methods 210 FOR I=1 TO 52 
5 DIM XA(52),XB(52) 215 XA(I)=I 
10 REM XB is shuffled matrix 220 NEXT I 
30 Print "Select Method 1,2,3,4. 225 FOR I=1 TO 52 

5 will end." 230 XB(I)=INT(52*RND(1)+1) 
40 INPUT N: REM METHOD NUMBER 235 IF KA(XB(I))=@ GOTO 23¢ 
5C ON N GOTO 1£8,200,300,402,62D 240 XA(XB(I))=¢ 
100 REM 2 MATRIX, SHIFT UP 245 NEXT I 
110 FOR I=1 TO 52: REM INITIALIZE 250 GOTO 5%¢ 
115 XA(I)=I 300 REM 1 Matrix,random pair exchange 
120 NEXT I 310 FOR I=1 TO 52 
125 B=52 315 XB(I)=I 
130 FOR I=1 TO 52 320 NEXT I 
135 R=INT(B*RND(1)+1) 325 FOR I=1 TO 18¢ 
140 XB(1I)+XA(R) 330 R=INT(52*RND(1)+1) 
145 FOR J=R TO B 335 S=INT(52*RND(1)+1) 
150 XA(J)=XA(J+1) 340 IF R=S GOTO 335 
155 NEXT J 345 T=XB(R) 
160 B=B-1 350 XB(R)=XB(S) 
165 NEXT I 355 NEXT I 
170 GOTO 5¢¢ 350 GOTO 52@ 
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I ran into a few surprises. Being prejudiced against Method 2, 
I discovered that it actually ran faster on the average than 
Method 1 and only slightly slower than Method 3. However, upon 
a little examination I soon realized why this was so. All three 
employed the BASIC RND function which is a machine-lansguage 
generator. In Method 1 the slow operation turns out to be the 
shift operation, compared to the random number generation. 
So, while Method 2 needs many more random numbers, the time 
required to generate these was still less than the shift time. 
I sought a fairer test. Therefore, I replaced RND with calls 
to my own random number generator (previous article) as a 
subroutine. What came out is shown in Table I. Note that in 
Table II the methods are compared with the RND function so the 
overall running time of all methods is faster. But, note which 
of methods 1-3 is fastest. Method 3 is slow due to the larger 
quantity of random numbers but still faster than Method 2 by 
a small margin. 

Since you have now looked at Tables I & II you must be 
wondering what this miracle algorithm 4 is.... 


METHOD 4: One matrix, pseudo-shift, random pair exchange 


This beauty is a combination of Methods 1 and 3 but 
has none of their disadvantages. It is simplicity itself. 
The matrix is loaded. The last value (52 here) is selected 
and one other random number in the matrix is chosen. The two 
are exchanged. On the second cycle position 51 is exchanged 
with another randomly chosen one, etc. It uses only 51 random 
numbers, no extraneous operations, and runs in half the time of 
the best of the other 3 methods. It has absolutely no dis- 
advantages that I can find. If you came up with this one, give 
yourself an "A" in programming. 


I have a few more notes on the Tables. Anyone who tries 
to reproduce my times should know that I began timing with a 
stopwatch as I hit "return' and ended as the last line was 
printing out. In theory the run times for methods 3 and 4 
should all be equal. The variation is due to my ineptness with 
the stopwatch. Also, for the runs I reset the random number 
generator at the start of each method being tested, CPU reset 


when using RND and setting RO=1 when using my generator. Other- 
wise I used the program given at the end of this article. Not 
reported here are the number of values which ended up in their 
original locations. The worst case was 4. 


Lastly, to reconsider the "brute force" nature of the 
second method, know that such techniques are not always bad. 
It should, however, be a warning flag to any programmer that 
when he tries to use a brute force method to think carefully. 
I can cite at least one case in my Own experience where it 
was the best and fastest way to accomplish the goal. So, my 
remarks are not intended to offend anyone but merely to point 
out possible things to watch for when programming. 


8s 


the advantage of using only 52 random numbers but suffers 
from the slowness of the shift operation and using up 
twice as much memory as is really needed. 


METHOD 2: Two matrix, no shift, random select 


The second method appears in several of our Users' 
Library programs. At first inspection it seems to be 

a bit better than Method One because it involves no 
shift operations. It begins like the first method but 
instead of the shift operation it puts a zero into the 
first matrix where the chosen value was selected. On 
successive iterations the matrix position chosen is 
checked for zero. If it is, the program tries ayain. 
While it is simple to program,it is a brute force method 
and very dependent upon the random number generator. 

If the generator is a good one and able to produce a 
well-distributed set of numbers, this method is not too 
bad. Like the first method it uses up twice the necessary 
memory and has a speed that will vary considerably. 

It is this software dependence that makes it a poor 
method. Indeed, any algorithm that is as software 
dependent as this one is should be replaced by another. 


METHOD 3: One matrix, random pair exchange 


This one happens to be my own method. It involves 
selecting two matrix elements at random and interchanging 
them. The algorithm also checks to see if the same 

value was chosen for a random number to avoid exchanging 
a number with itself. This is not really necessary in 
large matrices but helpful in smaller ones, I found 

that 50 such exchanges left several values in their 
original positions so I went to 100 exchanges. The 
advantages are that it is faster than either of the 

other two methods, uses less memory, and carries out no 
extraneous operations such as shift or checking for zero. 
The main disadvantage is that the final shuffle is not 

as good and dependent upon the quality of the random 
number generator. While I would have liked to think that 
my own method was the best one, it is not. In fact the 
only reason I might have recommended it was for its speed 
and memory usage, given the adequacy of the random number 
function. 


Now before I reveal the method of choice, I would like to 
describe how I tested each method. The choice of any algorithm 
is not always a clear cut one. Given the three methods above 
One could well choose any of the three for valid reasons. For 
a shuffle of 52 values, Method 2 has a slight disadvantage in 
that during actual running it can take excessively long to per- 
form its task. For a double deck it becomes a nuisance. 

In actual tests I measured (1) The time to shuffle, aver- 
aged over ten runs, (2) The values left in original positions, 
and the (3) Standard deviation of the times. Upon running each 
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RANDOM THOUGHTS 


by 
Rick Taubold 


Last time in this column I dealt with random numbers and 
random number generators. Before I get into this column's topic, 
I want to make a few remarks about random number gneerators, 
First of all, I do not know how many of you realized that in 
any linear congruential sequence, as discussed last time, which 
is set up by the rules I gave, that all of the integers from zero 
up to the modulus will be generated. Try this example: 


Xx = (5X_ + 5)mod 32, and use X_+1 to start. You will get 
n+l n n 


all tne numbers from @ to 31 starting 1,14,23,24...30,27,12 at 
which point the sequence will begin to repeat. Now, try this 
same example but disobey the rules and let c=% rather than 5. 
You will get 1,5,25,29,17,21,9,13,1,5,25,29... Can you figure 
out why c cannot be zero? 

Perhaps in a future article I will discuss some methods 
for testing the adequacy of a random number generator. As long 
as you obey the rules your chances for getting a satisfactory 
one are pretty good. But be careful of experimenting around 
with your own methods for generating random numbers. Cnances 
are very good that you will not get the desired results. 

I refer you to the book by Donald Knuth mentioned last time. 


“THE FAST SHUFFLE" 


Card shuffling: It is essential to many game programs. 
While rolls of the dice are little more than direct randoin 
numbers, cards are more than this. What we must do is to 
randomize an already existing set of values. 

I have been able to discover four card shuffling 
algorithms. One of these, the last one, is the classical method. 
The others are...well, adequate at best, each suffering from 
some disadvantage. Obviously the trick is to produce a good 
shuffle as quickly as possible. Stop for a moment and consider 
how you would do this, randomize a set of 52 values. Speed is 
of importance. Here elegance is not where it's at. I have in- 
cluded the four methods into one demonstration program at the 
end of my article. Each method is essentially independent so 
you can extract it and use it by changing parameters as required. 


METHOD 1: Two matrix, shift up, random select. 


This method was devised by a medical student friend of 
mine. It involves a starting matrix of 52 values anda 
second blank matrix (no real need to zero it at the start). 
First select one of the 52 values at random and place that 
value into the first position of the second matrix. This 
in essence leaves a "blank" in the first matrix. Starting 
at this "blank" position shift the remaining values up to 
52 up by one position to produce a new first matrix of 51 
values. Repeat the first step, putting the next randomly 
chosen value into the second position of the second matrix, 
ete., until all values are transferred. This method has 


CLEAR 109 

ZS="9806000" 

PLOT 6,6,15,12,29 

PRINT , "BINARY TO DECIMAL, DECIMAL TO BINARY CONVERTER" 


PRINT 

INPUT "[18] (1) BINARY TO DECIMAL OR (2) DECIMAL TO BINARY? ";C$ 
C=VAL (C$) :IF C<>1 AND C<>2 THEN 126 

PRINT :IF C=2 THEN 466 


INPUT "[19]ENTER BINARY NUMBER: [17]";B$:L=LEN(BS):IF L>16 THEN 690 


§ FOR J=1 TOL 


IF MIDS$(B$,J,1)<"9" OR MIDS$(BS$,J,1)>"1" THEN J=999 
NEXT 


IF J>96@ THEN PRINT TAB(21)"[(21]NOT A BINARY INTEGER! ":GOTO 128 


D=9 
P=9 


REM Decimal equivalent. 
REM Powers of 2. 


FOR J=L TO 1 STEP -1 
D=D+VAL (MIDS (B$,J,1)) *2°P 
P=P+1 

NEXT 


PRINT "[22]DECIMAL EQUIVALENT =[17]"D 
GOTO 129 


INPUT "(19]ENTER DECIMAL NUMBER: [17]";D$:D=VAL(D$):IF D>65535 THEN 609 
FOR J=1 TO LEN(DS) 
IF MIDS (DS$,J,1)<"@" OR MIDS(DS$,J,1)>"9" THEN J=999 
NEXT 
IF J>909 THEN PRINT TAB(22)"(21JNOT A DECIMAL INTEGER! ":GOTO 129 
Bs="" :REM Initialize binary string. 
QO=INT (D/2) REM Divide the number by 2. 
R=D-2*QO REM Get the remainder. 


BS=RIGHTS (STRS (R) ,1)+BS :REM Add the new digit. 
IF QO>@ THEN D=00:GOTO 468 :REM Loop until quotient is zero. 


IF LEN(BS)<=8 THEN BS=RIGHTS (ZS+BS,8) :GOTO 528 
BS=RIGHTS (ZS+BS ,16) :BS=LEFTS (BS ,8)+" "+RIGHTS (BS ,8) 
PRINT "[22]BINARY EQUIVALENT = [17]"BS 

GOTO 126 


PRINT TAB(29+C)"(21]NUMBER CUT OF RANGE!":GOTO 128 


22 


1 remainder = 1 (bit 6) 
273 
0 remainder = 1 (bit 7) 


27 
The binary equivalent of 238 (dec) is therefore 


bit, 7. 6. 5 4 3 1.0 
1 2 2. OS 1 0 (binary) 
which is the same result as with the previous method. (Thank goodness.) 


Next time: hexadecimal numbers. Until then, here is a really quick and 
dirty BASIC program you can use to do binary/decimal conversions. The 
program uses the division method just described for translating from 
decimal to binary. The binary result is given with leading zeros as 
either a one byte or a two byte expression. Since we'll be dealing with 
a maximum of two bytes at a time, the program limits the input and output 
to 65535 (dec). (The numbers in brackets in the listing are control 
codes entered from the keyboard. Thus, [17] is red, [18] is green, and 
so on.) 


The largest number which two bytes can hold (or, the highest address 
allowed) is therefore 11111111 11111111 (binary), which is 65535 (decimal). 

With some "hunting and pecking", these tables will allow you to 
translate from decimal to binary as well as the reverse. To translate 
from decimal to binary, find the bit with the highest weight equal to 
or less than the decimal number to be converted. Make the corresponding 
bit in the binary number = 1 and subtract its weight from the decimal 
number. Resume the process with the result of that subtraction until 
the result is zero. For example, we can translate 238 (dec) into binary 
by noticing that the highest binary weight equal to or less than 238 is 
128 (= 21), Make that bit = 1. 


+++ 512 256 128 64 32 16 $4. 2 ab 
0 0 bE 


Subtract 128 from 238 to get 110. The highest weight equal to or less 
than 110 is 64. Set that bit = 1. 


++. 512 256 128 64 32 16 S42 1 
0 0 4 1 


110-64=46. The bit under 32 becomes l. 


oe. 512 256 128 64 32 16 8 4 2 1 
0 0 a: 1 i. 


46-21=14, so the bit under 8 becomes l. 


eee S12 256 128 64 32 16 8 4 #2 1 
0 0 1 1 1 O° 2 


14-8=6. Etc. The final result is 11101110 (bin) = 238 (dec). 

An alternative method is to divide the decimal number by 2 and place 
the remainder into the right-most bit of the binary number. Now divide 
the quotient (i.e. the integer result) of the previous division by 2, 


put the remainder in the next bit position to the left, and so on until 
the quotient = 0. 


119 remainder = 0 (bit 0, i.e., right-most bit) 
59 remainder = 1 (bit 1) 
29 remainder = 1 (bit 2) 
4 remainder = 1 (bit 3) 


_7 remainder = 0 (bit 4) 


remainder = 1 (bit 5) 


20 


In decimal this would be (0x8) + (1x4) + (1x2) + (0x1) =6. The Compucolor 
stores numbers as 8 binary digits (one byte), so we ought to become 
accustomed to this table: 


powers 
(expressed 
in decimal) 27=128 '26=64 24=32 24=16 23=8 22=4 23=2 2°=1 


This means, incidentally, that the largest number which can be stored 
in a given memory byte is 11111111 (binary) = 255 (decimal). 


Exercises: Translate these binary numbers into decimal. (No fair peeking 
at the answers.) 


(a) 00011001 
(b) 10000000 
(c) 10000001 
(d) 01000010 
(e) 00001010 
(£) 00000111 
(g) 00001111 


Answers: 

(a) 0x 2720x128 = 0 
+O0x2%°=0x 64= 0 
+O x 2° = 0 x S32 = 0 
+1lx2*=1xX 16 = 16 
- 1a 29 = 1 x 8= 8 
+0 2.27% = 0 & 4= 0 
*Ox%, 222 0% 2= 0 
Dee 20m] xe 1= 1 
= 25 (decimal) 

(b) 128 

(c) 128 + 1 = 129 

(d) 64+2= 66 

(e) 8+2== 10 

(f) 4+2+1=7 

(g) 8+4+2+1=15 


Some of the 8080's internal registers (see part one of this series in 
the May, 1981 issue of Data Chip) are sixteen bits wide; in addition, 
each memory location in the computer is referenced by its address (more 
on that later), which is sixteen bits. So we ought to become accustomed 
to this table: 


245=32768 234=16384 223=8192 212=4096 221=2048 22°=1024 29=512 2%=256 


27=128 26=64 24=32 24=16 23=8 27=4 27=2 2°=1 
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weight 1000 100 10 1 
example number 0 2 3 8 


The decimal number 238 is two one hundreds plus three tens plus eight 
ones: (2 x 100) + (3 x 10) + (8 x 1) = 238. These weights are easily 
determined: they are powers of ten. (Powers of ten, since this is the 
decimal system.) But the powers start with 0: 10° = 1. (In fact, any 
number to the zero power is defined = 1.) 


powers 3 2 1 0 
decimal weights] 103=1000 107=100 107=10 10°=1 


We now have all the principles necessary to develop any other number 
system we wish. For the binary system, the previous discussion need only 
be repeated, except that "decimal" should be replaced with "binary", 
the ten allowable decimal characters should be replaced with the two 
allowable binary characters, the powers of ten should be replaced with 
the powers of two, and so on. 

A binary odometer would turn considerably faster than the decimal 
odometer (but there would be no savings in gas): 


As soon as you reach 1, you must start over again at 0, whereas in the 
decimal system you don't have to start over again until you reach the 
character "9". Don't misinterpret these numbers. The binary number 10 
is not equal to the decimal number 10. If you start at zero, you will 
have counted to two when you get to binary 10, but you will have counted 
to ten when you get to decimal 10. 

Each column of a binary number has aweight, determined by the powers 
of two: 


powers 28 23 2% ° 429 
binary weights 8 4 Z 1 


Note: this table is expressed in decimal for convenience. If we expressed 
it in binary, it would be 


powers 11 10 1 0 binar 
binary weights! 1000 100 10 ni (binary) 


Thus, a binary number is represented using the same underlying principles 
as a decimal number. If we wish to translate binary into decimal, we 
need only multiply the column weights by the column numbers and add them 
up. For example: 


weight 
(expressed 
in decimal) 
example number 


23=8 22=4 21=2 2°=1 
0 1 iT 0 (binary) 
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ALPOCI 1 
Part 2: Binary Numbers by David B. Suits 


Your Compucolor's memory is a series of storage locations, each of 
which can store one byte of information. A byte is an eight bit binary 
number. The binary number system isa simple--primitive, in a way--method 
of representing a number. Any number. The decimal system, with which, 
I assume, you are most familiar, is. 50 called because it contains ten 
(dec is a prefix meaning ten) characters used for representing numbers. 
(Positive integers, anyway. Negative numbers usually have an extra 
symbol, "-", and fractions are usually expressed with "." or "/". Let's 
stick with positive whole numbers for the time being.) The decimal 
characters are: 0,1,2,3,4,5,6,7,8 and 9. There is no unfathomable mystery 
about a binary system, wherein only two characters are allowed (0 and 
1), nor about a hexadecimal system, where sixteen (hex=6, dec=10, so 
hexadec=16) characters are used (0-9 and A-F), nor about an octal system, 
where eight characters are used (0-7), nor about any other number system 
you might care to invent. (You are probably familiar with the ...ah 
--.er "alphabetic" system, where numbers are represented by chains of 
letters, e.g. "one", "two", etc. That is a slightly different concept 
from the others, and I mention it only for the sake of confusion.) 

I said there is no real mystery about such number systems; but that 
is not to say that there are no conceptual hurdles you must jump in 
order to become familiar with them. Let's look at how numbers are 
represented in the decimal system so that we can abstract the principles 
involved and apply them to any other number system whatsoever. 

What happens when you add-1 to a (decimal) number? The result is 
the next higher number. 3+1=4, 6+1=7, and so on. But take the highest 
number representable by a single decimal character, 9, and add one to 


it: 9+1=10. The result in this case is two characters. They shift just’ 


like the wheels in an odometer: once a character reaches 9, it shifts 
back to 0 and the character to the left is incremented. 


9 19 29 99 
a! +1. © Do wea Le ae 
10 20 30 100 


This is more easily seen if we put in some unnecessary leading zeros: 


009 019 029 099 
+1 +1 Poy occ DL ore 
010 020 030 100 


Each columm in a decimal number is occupied by some decimal character. 
(Since there is an infinity of leading columns, all occupied with zeros, 
they are omitted.) The value of a given decimal number is determined by 
the characters in each column multiplied by the weight that column has. 
Harken back to your elementary school days. (Or are you a product of 
the "new math"?) A decimal number has a one's column, a ten's column, 
a hundred's column, and so on. Thus, the right-most column has a weight 
of 1; the next column has a weight of ten, etc. 
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ASK ME. The computer is able to answer questions on several topics. 
Its vocabulary is expandable. 

MAZE1: Print any size maze on your printer. (300 baud) 

ANIMAL. Teach the computer to distinguish among hundreds of animals. 

FLIP. The computer tries to outguess you in this simple game. 

BRAIN TEASER. Given a 3x3 array of cells, you must flip them according 
to certain rules until you have them in a pre-defined pattern. It's 
not easy. 


DISK 25 Utilities 
3-D PLOTTING PACKAGE. Jim Minor's programs allow you to create and 
edit 3-D displays. Requires 32K. Extensive documentation included. 


DISK 26 Scientific & Engineering 
OP AMP OPTIMIZATION CALCULATOR. 
RESISTIVE PI AND T NETWORK COMPUTATION. 
POWER, DB VOLTAGE COMPUTATION. 
PARALLEL AND SERIES CAPACITANCE CALCULATION. 
PARALLEL AND SERIES RESISTANCE CALCULATION. 
OHM'S LAW. Power, current, voltage and resistance computation. 
CRAMER'S RULE. Find x,y and z in three polynomials. 
SIMULTANEOUS EQUATIONS. Solve up to 40 simultaneous equations. 
FUNCTION PLOTTER. General plotting program for any function Y=f(X). 
EXTERNAL BALLISTICS. Trajectory calculations. 
SHORTEST ROUTE. Calculates shortest route among n points. 


DISK 27 Utilities 

SCREEN RAM TEST. Tests screen memory and identifies faulty chips. 

"SMART" PRINTER DRIVER. Prints .SRC files on printer at user selectable 
baud rates. Also prints page numbers and leaves top and bottom 
margins, Your printer must respond to CNTL L (form feed). 

TRANSFER. CCII to CCII data transfer program sends or receives memory 
blocks or BASIC programs at 300 baud through the serial port. 

DISASSEMBLER. Machine language program for screen or printer output. 

DEBUG. Machine language debugger. (32K) No documentation. 

COMTRX. Makes the CCII into a "dumb" terminal. 

MANAZIR'S MONITOR. Source file included. 

ASSEMBLER UPGRADE. Upgrades your CCII Assembler to give you options 
such as list to screen or printer. 

LLIST. Line printer patch for BASIC programs. 

FORMATTER. CCII disk formatter. (Not ISC's.) 


DISK 28 Educational 
TYPING. Drills you on typing skills. 
PITCH. Prints (on your printer) a table of musical pitches for many 
octaves, based on A=440Hz. 
STATES AND CAPITALS QUIZ. 
CALCULATOR. Draws a picture of a pocket calculator and simulates 
its action. 


DISK 29 Utilities 
GRAPH1. Demonstrates kinds of graphs. 
.,GRAPH2. Special graphs: histograms, linear regression, plots of 
equations; with choice of X/Y scatter, Y bar graph, etc. 
GRAPH3. Monthly comparison charts for profits, income, etc. 
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DISK 18 Games 
ROBOT CHASE. A group of robots are chasing you around. Try to elude 
them while causing their destruction. 
PRISON ESCAPE. In order to escape from this prison, you must 
successfully accomplish a series of tasks set for you by the computer 
in real-time, 


ICBM. Direct your missiles to destroy the incoming enemy missiles. 


Graphic, non-real-time display. 
REAL TIME STAR TREK. Star Trek game which gives you only so long to 
issue commands. Speed is user selectable. 


DISK 19 Games 
DOG STAR. A mini-Adventure game. Rescue the Princess while avoiding 
the enemy soldiers. 


DISK 20 Games 
ADVENTURE. The now classic game adapted for Compucolor. There are 
no instructions. You're on your own. 


DISK 21 Games 
DUNGEONS AND DRAGONS! 


DISK 22 Utilities . 

READ DISK. This program reads an entire disk, searching for possible 
bad spots. 

CLEAR DISK. Erases a disk and writes a user-specified pattern to 
it. (Also checks for some errors.) 

DUP DISK USING ONE DRIVE. 

- DUP FILE USING ONE DRIVE. 

CHANGE DIRECTORY INFORMATION. Change directory's name, its color, 
or the number of directory blocks. 

SOURCE OR TEXT FILE PRINTER. Prints a .SRC file to your printer. 

DIRECTORY MANAGEMENT. Keeps track of various disks by copying their 
directories onto a master disk. 

BASE CONVERSONS. Convert numbers from binary to hex, decimal to 
octal, etc. 

BASE. ARITHMETIC. A base conversion program which also calculates 
arithmetic expressions in mixed bases. 

DISPLAY MANAGEMENT. Keep track of your screen displays. 

BASIC PROGRAM PRINTER PATCH. Add this to a BASIC program in order 
to print a listing (on your printer) in a formatted output. 


DISK 23 Utilities 
SCREEN DISPLAY EDITOR. A sophisticated BASIC program to aid in 
producing screen displays using text, color changes and plotting 
routines, 
MUSIC EDITOR FOR CAP ELECTRONICS' SOUNDWARE (TM). 


DISK 24 Games 
HOT AIR BALLOON RACE. -The display draws a map of the US and records 
the progress of two players racing from California to Boston. 
CLUMSY. Move a little token around the display, avoiding hidden 
obstacles. Clues tell you where obstacles are. 
WORDS. Guess a 5 letter word which the computer has chosen. 


DISK 11 Games 

BOUNCE. Two player game. Specify the properties of a bouncing ball 
and aim it in order to knock points off a wall. 

MILL. Two player strategy game. Place markers on a board until your 
opponent is forced out. 

HANGMAN LIBRARY MAINTENANCE PROGRAM. Add words for ISC's Hangman 
game (not included). : 

LIFE. A BASIC version of Conway's game, with rather extensive 
explanations. 

CALCULATION. A solitaire card game. 

SLY FOX. Solitaire card game. 


DISK 12 Games 
COMPUDICE. A "Yahtzee" type dice game. 
RUMMY. The traditional card game with you against the computer. 
CRAG. A dice game. 
UNO. The card game with you against the computer. 


DISK 13 Games 
LA BELLE LUCIE. Solitaire card game. 
IDIOT'S DELIGHT. Solitaire card game. 
FINANCIER. Solitaire card game. 
KISMET. Dice game. 
ZILCH. Dice game. 


DISK 14 Games 
TOM HUDSON'S ASTEROIDS. Real-time, machine language version of the 
arcade game. Requires 32K and extended keyboard with V6.78 ROM. 
Source is included if you want to change it around for your own 
system. 


DISK 15 Games 
PRO FOOTBALL. You against the computer. 
OIL COMPANY. Direct the activities of an oil company and see if you 
can manage a profit. 
LUNAR LANDER. Complex, non-real-time simulation. 


DISK 16 Games 
BLACK BOX. Send probes into a black box in order to discover what's 
there. 
CROSSWORD PUZZLE. Prints the blank puzzle on the screen and lets 


you write in the words. It will tell you if you get everything 
correct. 

CREATE CROSSWORD PUZZLE. Lets you create new puzzles for the CROSSWORDS 
program. Awkward to use. 

‘CIVIL WAR. Simulation of a battle. 

HOUNDS. Four hounds (you) must trap a fox (the computer) on a 
checkerboard. 

ZONE X. A grid is drawn and you must discover where the computer 
has placed the intersection of two lines. 


DISK 17 Games 
SUPER MONOPOLY! Requires 32K. 
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DISK 5 Games 
ROULETTE. Just what it says. 
BACKGAMMON. You against the computer. 
GREED. A strategy dice game. You against the computer. 
BIORHYTHM. Not ISC's. 
COLONY. Simple strategy game for one person involving a power struggle 
between two groups. 


DISK 6 Games 

REVERSE THE NUMBERS. Given a string of numbers, you must operate on 
them in a certain way until you have them in the proper order. 

ROVER ROBOT. Direct the “robot" across a grid, avoiding various 
hazards, Three levels of difficulty. 

THE 15 PUZZLE. Move little numbered "tiles" around until you have 
them in order. It's not easy. 

MASTERMIND. The traditional guess-the-order-of-the-colors game. 

TANK. A BASIC version of the arcade game. Your opponent is the 
computer. : 

BLOCKADE (with sound). Two players move around the screen, leaving 
trails, im attempt to block the other in. 


DISK 7 Demo Programs 
DOG CHASE CAT. 
COLOR CLOCK. 
CHESS PIECES. 
EXTRA LARGE CHARACTERS. 
DEMO NEARLY EVERYTHING! 
HORIZONAL LINES. 
ANIMATED KEYBOARD. 
THE BITBIN (with sound). 
DROP THE MARBLES, 


DISK 8 Games 

NICHE. An ecology simulation wherein you specify the conditions for 
the environment of a chosen organism and see what happens. 

ELECTRIC COMPANY. Use coal or other fuel to provide sufficient power 
for the community. You're in charge of making all the decisions. 

INSPECTOR CLEWSO. Question the suspects in order to determine whodunit 
and where and when. 

TRAP. Two players move spots around, trying to trap each other 
without running over their own trails. Several degrees of difficulty. 

3-D TIC TAC TOE. Good graphics and a pretty smart computer make this 
a challenging game. 

CHECKERS. Your opponent is the computer. Good for beginners. 


DISK 9 Utility Pare. 
TINY-C. You'll need the manual (put your name on the waiting list 
with the librarian and include $3 postage) and DISK 10. For 32K 


machines, but it is evidently re-configurable for 16K. Source 
included. 


DISK 10 Utility 
TINY-C. Part two. 


CHIP LIBRART 


Order disks from the CHIP librarian. Send your own disks, or else 


- send $5 per each disk ordered. In any case, please include sufficient 
postage, 


Unless otherwise specified, all programs require 16K or less, one disk 
drive, and standard keyboard. 


DISK 1 Games 

FLIGHT SIMULATION. Russell Holley has given us a program which displays 
the cockpit of a B747. With the help of a map and keyboard layout 
(both published in the June '81 issue of Data Chip), you must. pilot 
your ship (in real time) from New York to Hartford, Conn. It's not 
easy. 

LABYRINTH. Tom Hudson's game gives you an inside, perspective view 
of a large maze. Move around the passages and try to find your way 
out. 

COMPUCOLOR BOWLING ALLEY. You won't bash your ankle with the ball, 
but you will have to have good reflexes. Scoring for two players. 


DISK 2 Games 

MONOPOLY. For up to four players, without the muss and fuss of the 
physical board, tokens, bills, etc. 

SPACE WAR. On-screen strategy game which pits you against various 
enemies. 

PENTOMINOS. S.W. Golomb's game for one or two players adapted for 
computer. Fit the variously shaped pieces onto the checkerboard... 
if you can. 


DISK 3 Games 

WUMPUS. Hunt the wumpus beast in a maze of caverns. 

HI SEAS. The traditional "Battleship" game with you against the 
computer. 

THE INTEGER CHOICE GAME. Match wits with the computer in this simple 
but intriguing game. 

SHOOT OUT. A BASIC version of the arcade game, with you against the 
computer. 

CAMEL. A simulation wherein you must ration your supplies and watch 
out for various hazards in order to cross the desert. 

TIC-TAC-TOE. A BASIC version which doesn't play very well, but it 
will challenge a beginner. 

WORD BAGELS and NUMBER BAGELS. An old guessing game similar to jotto. 

BINGO. This BASIC program calls the numbers, prints cards (on your 
printer) and verifies the winners. 


DISK 4 Games 

SUPER STAR. TREK. This is Star Trek suped up with all sorts of goodies. 

MASTER MIND II. Master mind with a smarter mind! 

JURY SIMULATION. Shows the problems in trying to pick a jury compatible 
with your client's interests. 

MAD LIBS. Give the computer various words and it creates amusing 
stories from them. 

PSYCHIATRIST. Weizenbaum's "Eliza" program stripped down for BASIC. 
The computerplays the part of a (not very talkative) psychiatrist. 
You're the client. 
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V1.8 (no sound) 


(c) 1981 by David B. Suits 


Fast, machine language invaders arcade game 
with color graphics and four levels of difficulty 
from "not-too-difficult” to "what-the-?!#*??". 
Runs on V6.78 and V8.79 software with standard 


keyboard, 
Si 


(US funds) 


Also included: fast, machine language version 
of LIFE. 


Special bonus: V2.9 of Alien Invasion (if I 
ever get around to writing it; I'm basically 
lazy, so I'm making no promises) will have 
sound effects if you have Cap Electronics 
Soundware or an equivalent device, and it will 
be free to all purchasers of V1.9. 


David -B. Suits 
49 Karenlee Dr. 
Rochester, NY 14618 


HOWARD ROSEN, IMC. 


Put the finishing touches to your Compuicolor IIT or ISC computer. 


>» Come up to the world of word processing. 
> Extend the utilization of your computer to the other members of your family, 
*x Letters 
*x School reports 
«x Business reports 
* If you now type-write it, Comp-U-Write it for a better product, 


~ Basic requirements for CCII or 3651/9651? 

16K RAM. 

1i7key keyboard, 

Frinter, 

Comp-U-Writer software and instruction manual, 
*» For maximum capability? 

Full 32h RAM. 

Lower case characters, 
> Talk to other computers: Add 3 MODEM to your system. 


We carry the entire CCII & ISC line of hardware/software, including spares. 
Send for our 4-page order form for herdware/software., Request separately 
by item your spare parts meeds, 


Send your order mow, We pay the shipping, 
Allow 5S weeks for delivery, 


Corr 3650/9659 Description _ Quantity Cost Amount 
010057 010053 Upgrade 72/101 keys 150.00 ¥ 
0100538 910054 Upgrade 72/117 keys 250.00 “eo, 
010059 010055 Upgrade 101/117 keys 100.00 
010044 24in. RS 232C Cable 45,00 
100984 0C2100 16% RAM Add-on 310,00 
010051 Switchable Lower Case : 150,00 

OCO3LC 32 Lower Case Characters 100,00 
990001 90030 Sins Formatted Twin Pack 969s 

900041 Bin. - 10 One Side Format _ 75.00 

900044 B8ine - 10 Two Side Format 100,00 
S91549 891545 Sin. Comp-U-Writer 262,50 = 

991546 8ins Comp-U-Writer : @oceou 6, 
9VL509 P91LS32 FORTRAN 735.00 
Centronics 737-3 Correspondence printer 850,00 
Base-2, Inc. 850 Impact printer 750,00 
C,Itoh Daisy wheel printer 2100.00 a 
CAT Novation MODEM Transmit/Originate xctierens, “175.00 

Sub Total 
Pa. residents add 6% Fa. Sales Tax Fa, Tax 
Total 

Terms - Cash with order 
Name Telephane #¢ ) ee 
Address _ City St ZiF 


HOWARD ROSEN, INC, 
FQ Box 434 
Humtineadon Valley, Fa. 19006 i kaies 


Signature ( please siqn order 


